Gopher Proxy
gopher.conman.org:70 gopher.conman.org:70/0Boston:Src:webmention/wm1.c-b
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <assert.h>
#include <cgilib6/crashreport.h>
#include <cgilib6/cgi.h>
#include <cgilib6/url.h>
#include <cgilib6/mail.h>
#include <syslog.h>
#include "../src/blog.h"
#include "../src/wbtum.h"
/**********************************************************************/
static int cgi_error(int level,char const *msg, ...)
{
va_list args;
char *file = NULL;
char *errmsg = NULL;
char *doc = NULL;
int len;
assert(level >= 100);
assert(level <= 599);
assert(msg != NULL);
va_start(args,msg);
vasprintf(&errmsg,msg,args);
va_end(args);
asprintf(&file,"%s/errors/%d.html",getenv("DOCUMENT_ROOT"),level);
len = asprintf(
&doc,
"<html>"
"<head>"
"<title>Error %d</title>"
"</head>"
"<body>"
"<h1>Error %d</h1>"
"<p>%s</p>"
"</body>"
"</html>"
"",
level,
level,
errmsg
);
fprintf(
stdout,
"Status: %d\r\n"
"X-Error: %s\r\n"
"Content-Type: text/html\r\n"
"Content-Length: %d\r\n"
"\r\n"
"%s",
level,
errmsg,
len,
doc
);
free(doc);
free(file);
free(errmsg);
return 0;
}
/**********************************************************************/
static int main_cgi_bad(Cgi cgi)
{
(void)cgi;
return cgi_error(HTTP_METHODNOTALLOWED,"Nope, not allowed.");
}
/**********************************************************************/
static char *safetext(char *s)
{
char *r = s;
assert(s != NULL);
for ( ; *s ; s++)
if ((*s < ' ') || (*s > '~'))
*s = ' ';
return r;
}
/**********************************************************************/
static int main_cgi_POST(Cgi cgi)
{
Blog *blog;
char *source;
char *target;
url__t *burl;
url__t *surl;
url__t *turl;
tumbler__s tumbler;
assert(cgi != NULL);
CgiListMake(cgi);
source = CgiListGetValue(cgi,"source");
target = CgiListGetValue(cgi,"target");
if ((source == NULL) || (target == NULL))
return cgi_error(HTTP_BADREQ,"no cookie for you!");
surl = UrlNew(source);
turl = UrlNew(target);
if ((surl == NULL) || (turl == NULL))
return cgi_error(HTTP_BADREQ,"That ain't a URL");
if ((surl->scheme != URL_HTTP) && (surl->scheme != URL_HTTPS))
return cgi_error(HTTP_BADREQ,"I only support the web");
syslog(LOG_DEBUG,"BLOG_CONFIG='%s'",getenv("BLOG_CONFIG"));
blog = BlogNew(NULL);
if (blog == NULL)
return cgi_error(HTTP_ISERVERERR,"Internal Error, ribs bleeding");
burl = UrlNew(blog->config.url);
if (burl == NULL)
return cgi_error(HTTP_ISERVERERR,"Must use BatMedKit");
if (
(burl->scheme != turl->scheme)
|| (strcmp(burl->http.host,turl->http.host) != 0)
|| (burl->http.port != turl->http.port)
)
return cgi_error(HTTP_BADREQ,"This is not the site you are looking for");
/*----------------------------------------------------------------------
; For some inexplicable reason, sometimes we get a double slash at the
; start of the path, so let's just check '/blah' and '//blah'
;-----------------------------------------------------------------------*/
if (!tumbler_new(&tumbler,&turl->http.path[1],&blog->first,&blog->last))
if (!tumbler_new(&tumbler,&turl->http.path[2],&blog->first,&blog->last))
return cgi_error(HTTP_BADREQ,"This is not the entry you are looking for");
if (tumbler.file || tumbler.range) /* can't use redirect here, sigh */
return cgi_error(HTTP_BADREQ,"You can only mention an entry");
Email email = EmailNew();
email->from = strdup(blog->config.author.email);
email->to = strdup(blog->config.author.email);
email->subject = strdup("Webmention, sir!");
fprintf(
email->body,
"\n"
"From: %s\n"
"User-Agent: %s\n"
"Expected values:\n"
"\tsource: %s\n"
"\ttarget: %s\n"
"\n"
"All values:\n"
"",
getenv("REMOTE_ADDR"),
getenv("HTTP_USER_AGENT"),
safetext(source),
safetext(target)
);
for (
struct pair *pair = CgiListFirst(cgi);
NodeValid(&pair->node);
pair = (struct pair *)NodeNext(&pair->node)
)
{
fprintf(email->body,"%s: %s\n",safetext(pair->name),safetext(pair->value));
}
EmailSend(email);
EmailFree(email);
fprintf(
stdout,
"Status: 202 Created\r\n"
"Content-Length: 0\r\n"
"\r\n"
);
return 0;
}
/**********************************************************************/
int main(int argc,char *argv[])
{
extern char **environ;
Cgi cgi;
int rc;
crashreport_with(argc,argv,environ);
crashreport_core();
cgi = CgiNew(NULL);
if (cgi == NULL)
return main_cgi_bad(NULL);
switch(CgiMethod(cgi))
{
case POST: rc = main_cgi_POST(cgi); break;
case GET:
case HEAD:
default: rc = main_cgi_bad(cgi); break;
}
CgiFree(cgi);
return rc;
}
.
you're on gopher.conman.org^70/0Boston:Src:webmention/wm1.c-b
back link is gopher.conman.org:70/1Boston:Src:webmention/